home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / 2924.ZIP / DMLXREF.ARC / STRG.INT < prev    next >
Encoding:
Text File  |  1988-12-27  |  2.1 KB  |  43 lines
  1. CONST
  2.   S_AllSpaces        =  1;   S_A =  1;
  3.   S_Leading          =  2;   S_L =  2;
  4.   S_Trailing         =  4;   S_T =  4;
  5.   S_ReduceToOneSpace =  8;   S_R =  8;
  6.   S_IgnoreQuoted     = 16;   S_I = 16;
  7.   S_ToUpper          = 32;   S_U = 32;
  8.   S_ToLower          = 64;   S_D = 64;  { 'down' case }
  9.  
  10.   MaxStrLen          = 255;
  11.  
  12. {.PA}
  13.  
  14. (**************************************************************************)
  15. (*                                                                        *)
  16. (*          1)  General Purpose String                                    *)
  17. (*                                                                        *)
  18. FUNCTION RJS      (Source : STRING; Size : BYTE) : STRING;
  19. FUNCTION LJS      (Source : STRING; Size : BYTE) : STRING;
  20. FUNCTION CJS      (Source : STRING; Size : BYTE) : STRING;
  21. FUNCTION Strip    (Source : STRING; Code : BYTE) : STRING;
  22. FUNCTION StrCase  (Source : STRING; Code : BYTE) : STRING;
  23. FUNCTION StrField (Source : STRING; Delimiter : CHAR; Num : BYTE) : STRING;
  24. FUNCTION StrFill  (FillCh : CHAR; Num : BYTE) : STRING;
  25. FUNCTION StrPad   (Source : STRING) : STRING;
  26. FUNCTION StrShiftLeft  (Fld : STRING; Posit : BYTE) : STRING;
  27. FUNCTION StrShiftRight (Fld : STRING; Posit : BYTE; Fill : CHAR) : STRING;
  28.  
  29. (*                                                                        *)
  30. (**************************************************************************)
  31.  
  32. (**************************************************************************)
  33. (*                                                                        *)
  34. (*          2)  String Conversion                                         *)
  35. (*                                                                        *)
  36. PROCEDURE S2C     (Strg : STRING ; VAR CharA ; Len : BYTE);
  37. FUNCTION C2S      (VAR CharA ; Len : BYTE) : STRING;
  38. PROCEDURE S2Z     (Strg : STRING ; VAR CharA);
  39. FUNCTION Z2S      (VAR CharA) : STRING;
  40. (*                                                                        *)
  41. (**************************************************************************)
  42.  
  43.